Sound Effects for Multimedia 2/Sound Effects for Multimedia - Volume 2.7z/Sound Effects for Multimedia - Volume 2.bin/mac/Sound Companion Demos/Sound Companion Demo/SETUP.RUL

Text File | 1998-10-23 | 5KB | 222 lines

// Ishield script file for Sound Companion by Jeff Patterson
// 6/24/95 modified 9/9/97

declare


    string szText [ 255 ];
    string szDisk [3];
    string szTemp [255];
    string szDefPath [255];
    string szBitmapPath [255];
    string szResultPath [255];
    string szResultPathX [255];
    string szNotepadPath [255];
    string szProgramPath [255];
    string szLicensePath [255];
    string szWorkingPath [255];
    string szReadme [255];
    string szQtPath [255];
    string szIconPath [ 255 ];
    string szFileName [255];
    string szPathFile [ 255 ];
    number nspace;
    number ntemp;
    number listID;
    number nTextMaxLines;
    number nFontPointSize;
    number nStatusWindowID;
    number nCheck;
    number SPACE_NEEDED;


program
anyword:
    SetColor ( STATUSBAR, RED );

    // Blue Gradiant from top to bottom
    SetColor (      BACKGROUND,
            QUAD( BK_RESET, 0, 0, 0 ) );
    SetColor (      BACKGROUND,
            QUAD( BK_VERT_TOP, 0, 0, 255 ) );
    SetColor (      BACKGROUND,
            QUAD( BK_VERT_BOTTOM, 0, 0, 50 ) );
    SetColor (      BACKGROUND,
            QUAD( BK_COMPLETE, 0, 0, 0 ) );

    SPACE_NEEDED = 1452102;
    SetFont (FONT_TITLE, STYLE_NORMAL, "System" );
    SetTitle ("Sound Companion Demo Installation", 24, BLACK );

    // MS look routine
        nTextMaxLines = 3;
        nFontPointSize = 9;
        nStatusWindowID = StatusCreate( STYLE_DEFAULT ,
                        nTextMaxLines ,
                        "System" ,
                        nFontPointSize ,
                        STYLE_NORMAL );
        StatusSelect( nStatusWindowID );

    //Enable ( BITMAPFADE );
    Enable ( EXIT );
    Disable ( HELP );
    Disable ( PAUSE );
    Disable ( INFO );
    Enable ( FEEDBACK_OPERATION );
    Enable ( STATUS );
    Enable ( BACKGROUND );

    GetDisk( TARGETDIR, szDisk );
    szDefPath = szDisk ^ "SC_Demo";

    SetStatusWindow ( 10, "Installing Sound Companion Demo" );

TargetLocation:

    AskPath ( "Please enter the desired location for Sound Companion Demo?", szDefPath, szResultPath );

    if LAST_RESULT = 0 then call ConfirmCancel;
    endif;

    if szResultPath = SRCDIR then
        MessageBox ( "The target location must be different than the installation source.  Please specify a different location.", SEVERE );
        goto TargetLocation;
    endif;

    CreateDir( szResultPath );

    if LAST_RESULT = 0 then goto DirCreated;
    endif;

    MessageBox ( "Unable to create directory.  Please enter a valid path", SEVERE );
    goto TargetLocation;


DirCreated:

    GetDiskSpace ( szResultPath );

    if LAST_RESULT < SPACE_NEEDED then
        MessageBox ( "Not enough space on the hard drive specified.  1.5 megabytes of free hard disk space are needed.  Please make more room or try another drive.", SEVERE );
        goto TargetLocation;
    endif;

    SetStatusWindow ( 10, "Ready to copy files." );
    TARGETDIR = szResultPath;

    SetStatusWindow ( 15, "Installing Sound Companion Demo files ..." );


    // Copy files from cd
    //CopyFile ( "FILEIO.DLL", "FILEIO.DLL" );
    CopyFile ( "A.A", "SC_Demo.exe" );

    SetStatusWindow ( 35, "Installing Sound Companion files ..." );
    CopyFile ( "B.B", "GIRLTALK.WAV" );

    SetStatusWindow ( 45, "Installing Sound Companionfiles ..." );
    CopyFile ( "C.C", "MANTALK.WAV");

    SetStatusWindow ( 55, "Installing Sound Companion files ..." );
    CopyFile ( "D.D", "MUSIC.WAV" );

    SetStatusWindow ( 65, "Installing Sound Companion files ..." );
    CopyFile ( "E.E", "SndEffct.RTF" );

    SetStatusWindow ( 70, "Installing Sound Companion files ..." );
    CopyFile ( "F.F", "OrderFrm.RTF" );

    SetStatusWindow ( 75, "Installing Sound Companion files ..." );
    CopyFile ( "SoundCmp.ico", "SoundCmp.ico" );

// make files hidden
        // Use List of Files to make hidden

    // Create file list
        listID = ListCreate( STRINGLIST );

        if ( listID = LIST_NULL ) then
            MessageBox( "List not created, fatal error", SEVERE );
        endif;

    // Add elements to file list
        ListAddString ( listID, "SoundCmp.ico", AFTER );

    //set files in list to hidden

        nCheck = ListGetFirstString(    listID,
                        szFileName );
        while ( nCheck = 0 )
            szPathFile = szResultPath ^ szFileName;
            SetFileInfo(    szPathFile,
                    FILE_ATTRIBUTE,
                    FILE_ATTR_HIDDEN,
                    "" );
            nCheck = ListGetNextString (    listID,
                            szFileName );
        endwhile;

    //clears list
        ListDestroy ( listID );



        SetStatusWindow ( 85, "Finished coying files..." );


    SetStatusWindow ( 90, "Creating Program Group..." );



    szProgramPath = TARGETDIR ^ "SC_Demo.EXE";
    szWorkingPath = TARGETDIR;
    szIconPath    = TARGETDIR ^ "SoundCmp.ico";


    //AddProgItemEx("HyperStudio",
    //           "Sound Companion",
    //           szProgramPath,
    //           szWorkingPath,
    //           szIconPath,
    //           0,
    //           "",
    //           0 );


    AddProgItemEx("Sound Companion",
               "Sound Companion Demo",
               szProgramPath,
               szWorkingPath,
               szIconPath,
               0,
               "",
               0 );




        SetStatusWindow ( 100, "Done installing files ..." );

//AskYesNo ( "Installation is complete.  Would you like to read the End User License //Agreement?", YES );
//if LAST_RESULT = NO then exit;
//endif;

//szLicensePath = TARGETDIR ^ "License.TXT";
//szNotepadPath = TARGETDIR ^ "NOTEPAD.EXE";

//LaunchApp ( szNotepadPath , szLicensePath );



exit;




ConfirmCancel:
AskYesNo ( "Are you sure you want to CANCEL installation?", NO );

if LAST_RESULT = NO then return; endif;
exit;